home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gekkan Dennou Club 143
/
Gekkan Dennou Club - 2000.4 Vol. 143 (Japan).7z
/
Gekkan Dennou Club - 2000.4 Vol. 143 (Japan).bin
/
games
/
dbs
/
db.riq
< prev
next >
Wrap
Text File
|
2000-03-06
|
44KB
|
1,409 lines
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
// DAGGER BARBARIAN STORY
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
//グローバル変数定義
&def 進行=0 //ゲーム進度フラグ
&def 回値=50 //回復を受けるために必要なGOLDの値
&def 台詞=0 //台詞に関するフラグ
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
[START]
&bgm 0 //御守り、無くてもまず問題ない
&goto MAP0 //[MAP0]に飛ぶ
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
[MAP0]
&map MAP\DBMAP0.MAP //マップの設定
&mapsp DBSPP.SPP //BGの設定
&mappal DBPAL.PAL //BGパレットの設定
// PAL,BANK, SP,向き(10KEY),動き(-1:静止,0:足踏み,1~:ランダム移動)
%mandef(1)={$A, 0,$80, 2, 0} //マンイベント設定(サッキュン)
//このブロックでのパーティーの初期位置(X,Y)&向き(10KEY参照)
%partypoint={60,16,4}
&initscreen //これで暗転した画面を出す
&load //この辺に置いておけばゲーム冒頭でのロードが可能になる
&bgm 6 //BGM演奏
&on //これで画面が表示される
&wait 50 //50/100秒の待ちが入る。
&monsprint 8,8,ダガー1 //&onが手前に無いと画面が真っ暗に・・・
!o(1)よーし、w何とかしてこの森を抜け出:してやるぞ!pc
#@1 &if(%direc<0){
&monsprint 8,8,ダガー1
!o(1)おっと、wそっちじゃ逆戻りだ。pc
&partymove 4,4
}
#@2 &if(進行==0){
&monsprint 8,8,ダガー1
!o(1)むっ、w何だ?:p
&monsprint 8,8,ダガー3
!もっ、wモンスター!?pc
&bgm -1 //転ばぬ先の音楽停止
&battle 0,7,0,1 //戦闘、モンスターの種類は数値で指定
&if(%exitcode==1){&goto 死亡} //死んでしまったら
&if(%exitcode==99){ //逃亡したら
&bgm 6 //フィールド音楽開始
&monsprint 8,8,ダガー2
!o(1)ふー、w何とか逃げ切った・・・。pc //戦闘から逃亡した時の台詞
進行++ //ゲームの進行状態を計る変数に1加える
&& //ここでイベント#@2自体から抜けてしまう
}
&bgm 6 //フィールド音楽開始
&monsprint 8,8,ダガー2
!o(1)ふー、w何とか倒した・・・。pc //戦闘で勝利した時の台詞
進行++ //ゲームの進行状態を計る変数に1加える
}
#@3 &if(進行==1){
&monsprint 8,8,ダガー2
!o(1)くそっ!wまたかよ。pc
&bgm -1
&battle 0,7,0,1
&if(%exitcode==1){&goto 死亡}
&bgm 6
&monsprint 8,8,ダガー2
!o(1)はぁはぁ・・・:wwこんな事していたらwとても身がもたない・・・。pc
進行++
}
#@4 &if(%direc<0){
%partydef(0)={$A, 0,$40,-1,-1,-1,-1,-1,-1,-1} //ダガー透明化定義
%mandef(30)={$A, 0,$60, 4,-1} //張りぼてダガーの定義
%manpoint(30)={%px,%py} //張りぼてダガーを置く位置の定義
&on //この&onで直前の3行が実行され、ダガーが透明化し
// 同時に直前に定義した張りぼてダガーが置かれる
// &onの置き位置や置き忘れによる不具合いに注意
// ってそんなんで悩んだのは俺ぐらいなものか・・・
&monsprint 8,8,ダガー3
!o(1)おや?pc
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,6 //行け!透明ダガー、君に決めた!
&wait 100
&monsprint 8,8,サッキ1
!o(1)・・・pc
&partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,-4//良くやった透明ダガー!もういい戻れ!
%manpoint(30)={100,100} //張りぼてダガーが飛んで行くMAPの外の座標
%partydef(0)={$A, 0,$60,-1,-1,-1,-1,-1,-1,-1} //ダガー可視化
&on //直前の2行を実行
&monsprint 8,8,ダガー1
!o(1)・・・ww(関わらないでおこう。)pc
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
&monsprint 152,8,サッキ1
!o(1)おい!w待て。pc
&monsprint 152,8,ダガー1
!o(1)・・・pc
&partymove 4,4
&monsprint 152,8,サッキ2
!o(1)お前だよ、wwそwこwのwオッwサン!pc
&monsprint 152,8,ダガー4
!o(1)(おっ、wオッサン・・・)pc
&partymove -2,-6,6
&monsprint 8,8,ダガー1
!o(1)なっ、wなんだい?pc
&monsprint 152,8,サッキ1
!o(1)お前この森から出たいんだろ。pc
&monsprint 8,8,ダガー1
!o(1)・・・wああ。pc
&monsprint 152,8,サッキ3
!o(1)フッ、w生憎とこの森からは簡単には出られないんだぜ。pc
&monsprint 8,8,ダガー1
!o(1)なんだと・・・pc
&monsprint 152,8,サッキ1
!o(1)この森は妖精による支配を受けている。:p
!その支配を断たねばこの森からは何者も出られやしないのさ。pc
&monsprint 8,8,ダガー1
!o(1)・・・、wそれが本当だとして何故私に教えるのだ?pc
&monsprint 152,8,サッキ3
!o(1)フフフ、wそれはなw私もまたこの森から抜け出られなくて困っているからだ。pc
&monsprint 8,8,ダガー1
!o(1)見たところ飛べるようだが?pc
&monsprint 152,8,サッキ2
!o(1)甘い!:p
&monsprint 152,8,サッキ1
!妖精のテリトリー内では殆どの魔法が制約を受ける。:p
!私は実際には魔法で浮力を得ているので、w
!この森の中ではせいぜいお前の背丈位迄しか飛べん。pc
&monsprint 8,8,ダガー1
!o(1)・・・wそれは威張って言うことでは無いのではないか。pc
&monsprint 152,8,サッキ2
!o(1)五月蝿い!:p
&monsprint 152,8,サッキ3
!それよりどうだ、wこの森から脱出するために私と手を組まないか?pc
&monsprint 8,8,ダガー1
!o(1)手を組む?pc
&monsprint 152,8,サッキ1
!o(1)そうだ、wこの森から出るには
!ここをテリトリーにしている妖精を倒さねばならない。:p
!しかしw攻撃魔法が封じられている私にはそれが出来ない。:p
!一方、wお前の戦闘力は魔法に依存していないので妖精を倒すことが出来る。pc
&monsprint 8,8,ダガー1
!o(1)俺にその妖精とやらが倒せるとして、w
!君と手を組む事によって俺は何か得をするのかね。pc
&monsprint 152,8,サッキ3
!o(1)フフフ、w得も何もお前は私の助け無しにはどうすることも出来ずに、w
!この森の中で野垂れ死にするしかないんだぜ。pc
&monsprint 8,8,ダガー1
!o(1)ほう・・・pc
&monsprint 152,8,サッキ1
!o(1)いいか、wお前はその妖精のところに辿り着く前に、w
!モンスター供との戦闘に力尽きて殺られちまう。pc
&monsprint 8,8,ダガー1
!o(1)・・・pc
&monsprint 152,8,サッキ3
!o(1)だが、w何とこの私はw世にも稀な、
!他者に対する回復魔法が使える悪魔様なのさ!pc
&monsprint 8,8,ダガー2
!o(1)あ、w悪魔だと!?pc
&monsprint 152,8,サッキ3
!o(1)フフフ、wまあそんなに驚きなさんなって。pc
&monsprint 8,8,ダガー3
!o(1)悪魔のくせに妖精のテリトリーに捕まって、w
!出られなくなったのか?pc
&monsprint 152,8,サッキ2
!o(1)お前な、w普通なら死んでるぞ。:wwその発言で。:p
&monsprint 152,8,サッキ1
!妖精の持つテリトリー能力はw結構強いんだから仕方がないの。pc
&monsprint 8,8,ダガー1
!o(1)この俺にw本当にその妖精とやらが倒せるのか?pc
&monsprint 152,8,サッキ3
!o(1)大丈夫だ。:w妖精の戦闘力はw極一部のものを除いて、w
!ほとんど大した事はないからな。pc
&monsprint 8,8,ダガー1
!o(1)うーむ・・・:p
!(悪魔と手を組むのか。wしかし今はそれしか無さそうだな・・・):p
!分かった、w手を組もう。:ww・・・wえーっと、pc
&monsprint 152,8,サッキ3
!o(1)私の名はサッキュンだ。pc
&monsprint 8,8,ダガー1
!o(1)・・・w悪魔の名前っていうのは皆そんな感じのものなのか。pc
&monsprint 152,8,サッキ1
!o(1)いや、w昔はリーズと言ったのだがww・w・w・w
&monsprint 152,8,サッキ2
!そんなことはどうでも良い。:p
&monsprint 152,8,サッキ1
!で、wお前の名は?pc
&monsprint 8,8,ダガー1
!o(1)俺か?w俺の名はww・w・w・wwダガー。:wwダガー・バーバリアンだ。pc
&monsprint 152,8,サッキ3
!o(1)フーン。:wwじゃよろしくなwダガーのオッサン。pc
&monsprint 8,8,ダガー1
!o(1)・・・wwよっwよろしく、wサッキュン。pc
&monsprint 152,8,サッキ1
!o(1)あーそうそう。:w予め言っておくけど、w
!私の回復能力はw何時でも幾らでも使える訳じゃないからな。:p
!それから戦闘にも一切参加しない。pc
&monsprint 8,8,ダガー3
!o(1)えっwそうなの?pc
&monsprint 152,8,サッキ1
!o(1)私の魔力は死者の魂によって補充される。:w
!またその補充量は死者の魂の価値によって違う。pc
&monsprint 8,8,ダガー1
!o(1)・・・pc
&monsprint 152,8,サッキ1
!o(1)お前が倒すモンスターの魂はwGOLDとして蓄積される。:p
!GOLDの値がある量に達した時に、wお前のHPを全回させてやる。:p
!小出しにはやらない。pc
&monsprint 8,8,ダガー1
!o(1)ある量とは?pc
&monsprint 152,8,サッキ1
!o(1)最初は50、w次は60。ww:以下10づつインフレして行く。pc
&monsprint 8,8,ダガー2
!o(1)なっ、w何でインフレして行くんだ?pc
&monsprint 152,8,サッキ1
!o(1)本当はもっと別な風にしたかったんだがww・w・w・w。:p
&monsprint 152,8,サッキ3
!まあw大人の都合だ、w諦めろ。pc
&monsprint 8,8,ダガー1
!o(1)・・・pc
&monsprint 152,8,サッキ1
!o(1)それでな、wいいか。:wwモンスターにはいろんなタイプの奴がいる。:p
!タフな奴、w強い奴、w多くの経験を与えてくれる奴、w
!そして魂の価値が高い奴や低い奴。:p
!モンスターとの戦闘からは逃げ出すことも可能だ。:p
!敵を選んで効率良く戦え、w倒す順番もだ、wwでないと破綻するぞ。pc
&monsprint 8,8,ダガー1
!o(1)なるほどww・w・w・w分かったよ。pc
&monsprint 152,8,サッキ3
!o(1)じゃあw手打ちって事でこれを遣ろう、w剣だ。:p
!ちゃんと装備しておけよ。pc
&partyitemin 1 //アイテム入手
&monsprint 8,8,ダガー3
!o(1)あ、w有難う。:p
&monsprint 8,8,ダガー1
!(あの小さな体の何処にこんな大きな物を隠していたのだろう)pc
&monsprint 152,8,サッキ1
!o(1)何か?pc
&monsprint 8,8,ダガー1
!o(1)いや別に。pc
&monsprint 152,8,サッキ3
!o(1)よーし、wでは行こう。:wwこっちだ。pc
&bgm -1 //BGM演奏
&partymove -4,4 //左へ振り向く
%manpoint(1)={100,100} //立ちんぼサッキュンが飛んで行くMAPの外の座標
&partyin 1 //サッキュン仲間になる
&on //直前の2行を実行
&wait 50 //50/100秒の待ちが入る。
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 //マップ左方向へ掃ける
&goto2 MAP1,122,114,-4 //マップ1へ
}
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
[MAP1]
&map MAP\DBMAP1.MAP //マップの設定
&mapsp DBSPP.SPP //BGの設定
&mappal DBPAL.PAL //BGパレットの設定
// PAL,BANK, SP,向き(10KEY),動き(-1:静止,0:足踏み,1~:ランダム移動)
%mandef(2)={$B, 0,$A0, 2, 0} //マンイベント設定(木下)
&bgm 6 //BGM演奏
&if(台詞>0){&jmp @f} //ここ以降にある最初の&labelにジャンプする
&on //これで画面が表示される
&wait 50 //50/100秒の待ちが入る。
&monsprint 8,8,サッキ3
!o(1)よーし、wここが第一の森だ。pc
&monsprint 8,8,ダガー3
!o(1)だ、w第一の森って?pc
&monsprint 8,8,サッキ1
!o(1)これから我々はw五つの森を抜けなければならない。pc
&monsprint 8,8,ダガー1
!o(1)・・・pc
&monsprint 8,8,サッキ1
!o(1)各森にはボスがいる。:pそいつを倒さなければ次の森へは行けない。pc
&monsprint 8,8,ダガー2
!o(1)なっwなんじゃいそりゃ!pc
&monsprint 8,8,サッキ2
!o(1)あーもーwうだうだ言わないの。:p色一回づつとかよりゃましだろう!pc
&monsprint 8,8,ダガー4
!o(1)う~む、ww確かに。:p
&monsprint 8,8,ダガー1
!あれには随分と苦労させられたからなぁ~(遠い目)。pc
&monsprint 8,8,サッキ1
!o(1)取敢えずさ迷ってボスを見付け、wそいつを叩いて次に行く。www:良いな。pc
&monsprint 8,8,ダガー1
!o(1)ハイハイ。pc
&monsprint 8,8,サッキ2
!o(1)ハイは一回で良い!pc
&monsprint 8,8,ダガー1
!o(1)w・w・w・ww
&monsprint 8,8,ダガー4
!ハイ。pc
&monsprint 8,8,サッキ3
!o(1)よろしい。:pでは御褒美をくれてやろう。pc
&freash 65535 //画面フラッシュ
&freash 65535 //も一回
&freash 65535 //も一つおまけだ
&complete //完全回復
&wait 40
&monsprint 8,8,ダガー3
!o(1)おっwおおお~!pc
&monsprint 8,8,サッキ3
!o(1)今の回復はサービスだ。:pさっきやった剣を装備し忘れるなよ。pc
台詞++ //変数台詞に+1
&label
#2 &if(%direc>0){
&monsprint 152,8,ダガー1
!o(1)こっ、wこいつが第一の森のボスか?pc
&monsprint 152,8,木々
!o(1)は~い、w第一の森のボス木下でーす。:wwよろしくねー。pc
&monsprint 152,8,サッキ1
!o(1)あーそうそうダガー、wボス戦は逃げられないからな。pc
&monsprint 152,8,ダガー2
!o(1)えっ、wなんで!?pc
&monsprint 152,8,木々
!o(1)じゃー行っくよ~んpc
&monsprint 152,8,ダガー3
!o(1)ちょっ・・・pc
&bgm -1 //転ばぬ先の音楽停止
&partyout 1 //サッキュンOUT
&battle $1000,7,木下,1 //逃げられない戦闘
&if(%exitcode==1){&goto 死亡} //全滅して終了
&partyin 1 //サッキュンIN
&bgm 6 //フィールド音楽開始
進行++
%manpoint(2)={130,130} //木下が飛んで行くMAPの外の座標
&on //これで木下が飛んで行く
&monsprint 152,8,ダガー2
!o(1)フー、w何とか倒したぞ。:pそれにしてもこれだけの戦闘をやったのに、w
!経験もGOLDも貰えないのはなぜだ?pc
&monsprint 152,8,サッキ1
!o(1)それはなダガー、wボス戦とはそういうものだからだ。pc
&monsprint 152,8,ダガー1
!o(1)なんだよ、wそのw「そういうもの」wってのは?pc
&monsprint 152,8,サッキ3
!o(1)まー何て言ーか、ww大人の都合だ。pc
&monsprint 152,8,ダガー2
!o(1)なんじゃいそりゃ!pc
&monsprint 152,8,サッキ3
!o(1)まあまあ、wwその代わり私が御褒美をあげよう。pc
&freash 65535
&freash 65535
&freash 65535
&complete
&monsprint 152,8,ダガー4
!o(1)はう!!pc
&monsprint 152,8,サッキ3
!o(1)どうだ、w少しは落ち着いたか?pc
&monsprint 152,8,ダガー1
!o(1)ええ、wまあ。pc
&monsprint 152,8,サッキ1
!o(1)うむ。:pではこの森に思い残すことが無ければ、w左に進んで次の森に行け。pc
&monsprint 152,8,ダガー1
!o(1)なんだよ、wそのw「思い残すこと」wって?pc
&monsprint 152,8,サッキ1
!o(1)次の森に行ったら、wもうその前の森には戻れない。:p
!これから後は皆そうなっているからな。pc
&monsprint 152,8,ダガー1
!o(1)だからなんで?pc
&monsprint 152,8,サッキ1
!o(1)それは・・・、ww
&monsprint 152,8,サッキ3
!大人の都合ってもんさ。pc
&monsprint 152,8,ダガー4
!o(1)そっ、wそうやって何時も何時も大人は卑怯な逃げ方をして・・・pc
&monsprint 152,8,サッキ2
!o(1)ハイハイ、w分かったからとっとと次行く!pc
}
#@5 &if(%direc<0){
&monsprint 8,8,サッキ2
!o(1)戻ってどうする、w戻って。pc
&partymove 4,4
}
#@6 &if(%direc<0){
&monsprint 152,8,ダガー4
!o(1)さらば、w第一の森よ・・・pc
&monsprint 152,8,サッキ1
!o(1)・・・wそんなにここが名残惜しいのか?pc
&monsprint 152,8,ダガー1
!o(1)いや、w別に。pc
&monsprint 152,8,サッキ1
!o(1)・・・pc
&bgm -1
台詞=0 //台詞用のフラグ零セット
&partymove 4,4,4,4,4,4 //マップの左方向へ消える
&goto2 MAP2,115,114,-8 //マップ2へ
}
#@41 &if(%direc>=0){&&} //イベント上、イベントに向かってボタンが押されたら処理中断
&if(%rnd(100)>5){&&} //乱数が5より大きければ処理中断
&if(%systime<40){&&} //前回の戦闘から40ターン経っていなければ処理中断
&bgm -1 //転ばぬ先の音楽停止
&partyout 1 //サッキュンOUT
&battle 0,7,%rnd(5)+1,1,%rnd(5)+1,1,%rnd(5)+1,1 //モンスターを1~5の数値で指定
&if(%exitcode==1){&goto 死亡} //全滅して終了
&if(%gold>=回値){
%gold-=回値 //%gold=%gold-回値
回値+=10 //回値=回値+10
&bgm 1
&monsprint 80,8,サッキ3
!o(1)お待たせー!:wサッキュンの回復タ~イムッ!pc
&freash 65535
&freash 65535
&freash 65535
&complete
&monsprint 80,8,ダガー4
!o(1)ふぅ~。pc
&monsprint 80,8,サッキ3
!o(1)次回の回復には;f(回値)GOLD必要でーす。:;現GOLD=f(%gold)pc
}
%systime=0 //エンカウント初期化
&partyin 1 //サッキュンIN
&bgm 6 //フィールド音楽開始
#@31 &if(%direc==2){
&if(台詞==1){
&monsprint 8,8,ダガー1
!o(1)こんな所に怪しげな穴が空いている・・・pc
&monsprint 8,8,サッキ3
!o(1)何だ知らないのか。:wこれはな、wセーブの穴と言うんだ。pc
&monsprint 8,8,ダガー3
!o(1)西武の穴だって?!pc
&monsprint 8,8,サッキ1
!o(1)・・・pc
&monsprint 8,8,ダガー4
!o(1)すいませんw御免なさいwお許し下さい、wwもう二度とこのようなことは
!言いませんので、wこれが何なのかお教え下さいませ。pc
&monsprint 8,8,サッキ2
!o(1)wったくw・w・w・:ww
&monsprint 8,8,サッキ1
!これはだな、wこの穴に向かってw今の辛く悲しい状況を切々と
!訴え掛けることによって、pその言霊を穴の中で反響させw
!記録を行うと言う代物なんだよ。pc
&monsprint 8,8,ダガー1
!o(1)要するに、wセーブポイントだね。pc
&monsprint 8,8,サッキ1
!o(1)・・・まあそう言ってしまえばその通りだ。pc
台詞++
}
&bgm -1
&monsprint 80,8,サッキ1
!o(1)で、wどーすんの?pc
%selectlist={セーブ,ロード,終了}
&switch(%select){
&case(0): //セーブ
!ダガーは今の辛く悲しい状況を切々と穴に向かって訴え掛けた。:p
&save 100 //ここで指定した番号のイベントがロード後実行される
!穴はダガーの訴えに呼応するかの如く低く唸る様にその言霊を響かせた。pc
&break
&case(1): //ロード
!ダガーは穴に鈍く響く言霊を聴いた。pc
&load
&break
&case(2): //終了
!ダガーは心地好い眠気に包まれていった・・・pc
&end
&break
&default: //キャンセル
&monsprint 80,8,サッキ1
!o(1)なんだよ、w冷やかしかよ。pc
}
&monsprint 80,8,サッキ3
!o(1)ほんじゃ、w行くか。pc
&bgm 6
}
#100 &if(進行>2){
%manpoint(2)={130,130}
&on
}
!ダガーの意識は一瞬遠のき、w次の瞬間w夢から覚めたように覚醒した。pc
&monsprint 80,8,ダガー3
!o(1)うああぁっ!!pc
&monsprint 80,8,サッキ2
!o(1)何騒いでやがんだ!:wwほら、wもう行くぞ。pc
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
[MAP2]
&map MAP\DBMAP2.MAP //マップの設定
&mapsp DBSPP.SPP //BGの設定
&mappal DBPAL.PAL //BGパレットの設定
// PAL,BANK, SP,向き(10KEY),動き(-1:静止,0:足踏み,1~:ランダム移動)
%mandef(3)={$B, 0,$A0, 4, 0} //マンイベント設定(木村)
&bgm 6 //BGM演奏
&if(台詞>0){&jmp @f} //ここ以降にある最初の&labelにジャンプする
&on //これで画面が表示される
&wait 50 //50/100秒の待ちが入る。
&monsprint 8,8,サッキ3
!o(1)じゃぁ張り切ってw第二の森行ってみよう!pc
&monsprint 8,8,ダガー1
!o(1)・・・www
&monsprint 8,8,ダガー3
!今通ってきた道は、w一体全体どこに行ってしまったのだろう?pc
&monsprint 8,8,サッキ1
!o(1)・・・p
&monsprint 8,8,サッキ3
!我々が通った後、w物凄い勢いで草が覆い茂ったのだ。pc
&monsprint 8,8,ダガー1
!o(1)なんで?pc
&monsprint 8,8,サッキ2
!o(1)大人の都合だよ!pc
台詞++
&label
#3 &if(%direc>0){
&monsprint 152,8,ダガー1
!o(1)お前がここのボスか?pc
&monsprint 152,8,木々
!o(1)イエ~ス、wミーがここ第二の森のボスw木村デース。pc
&monsprint 152,8,ダガー2
!o(1)貴様に恨みは無いが、w死んで貰います!pc
&monsprint 152,8,木々
!o(1)ワーオ、wジーザス!:wwイッツノーグットね。pc
&monsprint 152,8,ダガー1
!o(1)じゃ、w退いてくれ。pc
&monsprint 152,8,木々
!o(1)ノンノン!wそれは出来ない相談ネ。:wwレッツバトゥ!!pc
&bgm -1 //転ばぬ先の音楽停止
&partyout 1 //サッキュンOUT
&battle $1000,7,木村,1 //逃げられない戦闘
&if(%exitcode==1){&goto 死亡} //全滅して終了
&partyin 1 //サッキュンIN
&bgm 6 //フィールド音楽開始
進行++
%manpoint(3)={130,130} //木村が飛んで行くMAPの外の座標
&on //これで木村が飛んで行く
&monsprint 152,8,ダガー2
!o(1)ハァハァ、ww勝ったぞ!pc
&monsprint 152,8,サッキ3
!o(1)よろしい、wでは回復させてやろう。pc
&freash 65535
&freash 65535
&freash 65535
&complete
&monsprint 152,8,ダガー4
!o(1)をををっwをを・・・pc
&monsprint 152,8,サッキ3
!o(1)よーし、w次行ってみよう!pc
}
#@7 &if(%direc<0){
&monsprint 152,8,ダガー1
!o(1)何か落ちてたりはしないのかな?pc
&monsprint 152,8,サッキ1
!o(1)何か落ちてたりはしない。pc
&monsprint 152,8,ダガー2
!o(1)絶対かよ!pc
&monsprint 152,8,サッキ2
!o(1)絶対だよ!pc
&monsprint 152,8,ダガー4
!o(1)・・・pc
}
#@8 &if(%direc<0){
&monsprint 8,8,ダガー1
!o(1)マップ、w手を抜いてないか?pc
&monsprint 8,8,サッキ1
!o(1)・・・w早く大人になれ。pc
&monsprint 8,8,ダガー1
!o(1)・・・。pc
}
#@9 &if(%direc<0){
&monsprint 152,8,ダガー1
!o(1)また植物が覆い茂るのかね?pc
&monsprint 152,8,サッキ2
!o(1)ああ茂るさ、w茂るとも。:p茂って茂って茂りまくるのさ!pc
&monsprint 152,8,ダガー1
!o(1)・・・。pc
&bgm -1
台詞=0 //台詞用のフラグ零セット
&partymove 8,8,8,8,8,8 //マップの上方向へ消える
&goto2 MAP3,112,113,-4 //マップ3へ
}
#@42 &if(%direc>=0){&&} //イベント上、イベントに向かってボタンが押されたら処理中断
&if(%rnd(100)>8){&&} //乱数が8より大きければ処理中断
&if(%systime<40){&&} //前回の戦闘から40ターン経っていなければ処理中断
&bgm -1 //転ばぬ先の音楽停止
&partyout 1 //サッキュンOUT
&battle 0,7,%rnd(5)+6,1,%rnd(5)+6,1,%rnd(5)+6,1 //モンスターを6~10の数値で指定
&if(%exitcode==1){&goto 死亡} //全滅して終了
&if(%gold>=回値){
%gold-=回値 //%gold=%gold-回値
回値+=10 //回値=回値+10
&bgm 1
&monsprint 80,8,サッキ3
!o(1)お待ち兼ね~!:wサッキュンの回復タ~イムッ!pc
&freash 65535
&freash 65535
&freash 65535
&complete
&monsprint 80,8,ダガー3
!o(1)うはあ!pc
&monsprint 80,8,サッキ3
!o(1)次回の回復には;f(回値)GOLD必要でーす。:;現GOLD=f(%gold)pc
}
%systime=0 //エンカウント初期化
&partyin 1 //サッキュンIN
&bgm 6 //フィールド音楽開始
#@32 &if(%direc==6){
&if(台詞==1){
&monsprint 152,8,ダガー1
!o(1)やっぱりこれはボスの手前にあるものなのかな。pc
&monsprint 152,8,サッキ3
!o(1)さーて、wそれはどうかな。pc
&monsprint 152,8,ダガー3
!o(1)え!w違うの?pc
台詞++
}
&bgm -1
&monsprint 80,8,サッキ3
!o(1)どうする?どうする?pc
%selectlist={セーブ,ロード,終了}
&switch(%select){
&case(0): //セーブ
!ダガーは今の昏く酷で苦しい状況を鬱鬱と穴に向かって訴え掛けた。:p
&save 100 //ここで指定した番号のイベントがロード後実行される
!穴はダガーの訴えに呼応するかの如く低く唸る様にその言霊を響かせた。pc
&break
&case(1): //ロード
!ダガーは穴に鈍く響く言霊を聴いた。pc
&load
&break
&case(2): //終了
!ダガーは心地好い眠気に包まれていった・・・pc
&end
&break
&default: //キャンセル
&monsprint 80,8,サッキ1
!o(1)なに、w止めんの。pc
}
&monsprint 80,8,サッキ3
!o(1)ほんじゃ、w行くか。pc
&bgm 6
}
#100 &if(進行>3){
%manpoint(3)={130,130}
&on
}
!ダガーの意識は一瞬遠のき、w次の瞬間w夢から覚めたように覚醒した。pc
&monsprint 80,8,ダガー3
!o(1)うああぁっ!!pc
&monsprint 80,8,サッキ2
!o(1)何騒いでやがんだ!:wwほら、wもう行くぞ。pc
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
[MAP3]
&map MAP\DBMAP3.MAP //マップの設定
&mapsp DBSPP.SPP //BGの設定
&mappal DBPAL.PAL //BGパレットの設定
// PAL,BANK, SP,向き(10KEY),動き(-1:静止,0:足踏み,1~:ランダム移動)
%mandef(4)={$B, 0,$A0, 6, 0} //マンイベント設定(木田)
&bgm 6 //BGM演奏
&if(台詞>0){&jmp @f} //ここ以降にある最初の&labelにジャンプする
&on //これで画面が表示される
&wait 50 //50/100秒の待ちが入る。
&monsprint 8,8,サッキ1
!o(1)・・・。pc
&monsprint 8,8,ダガー1
!o(1)何か言いたいのか?pc
&monsprint 8,8,サッキ1
!o(1)別に・・・pc
台詞++
&label
#4 &if(%direc>0){
&monsprint 8,8,ダガー1
!o(1)・・・pc
&monsprint 8,8,木々
!o(1)・・・pc
&monsprint 8,8,ダガー1
!o(1)お名前は?pc
&monsprint 8,8,木々
!o(1)木田と申します。pc
&monsprint 8,8,ダガー1
!o(1)・・・pc
&monsprint 8,8,木々
!o(1)では、w参ります。pc
&bgm -1 //転ばぬ先の音楽停止
&partyout 1 //サッキュンOUT
&battle $1000,7,木田,1 //逃げられない戦闘
&if(%exitcode==1){&goto 死亡} //全滅して終了
&partyin 1 //サッキュンIN
&bgm 6 //フィールド音楽開始
進行++
%manpoint(4)={130,130} //木田が飛んで行くMAPの外の座標
&on //これで木田が飛んで行く
&monsprint 8,8,ダガー2
!o(1)よーし、w何とか倒した。pc
&monsprint 8,8,サッキ1
!o(1)うむ、wほれ回復。pc
&freash 65535
&freash 65535
&freash 65535
&complete
&monsprint 8,8,ダガー1
!o(1)w・w・w・ww何だか空しくなってきた。pc
&monsprint 8,8,サッキ1
!o(1)・・・:p
&monsprint 8,8,サッキ4
!ワー、wキャー!w凄ーい、w強~い!:wダガーさんかっこいい、wステキー!pc
&monsprint 8,8,ダガー1
!o(1)w・w・w・ww
&monsprint 8,8,ダガー4
!何だか悲しくなってきた。pc
&monsprint 8,8,サッキ1
!o(1)・・・wダガーよ。:ww人の目は何故に前に付いているのか知っているかい?pc
&monsprint 8,8,ダガー2
!o(1)そうか!:wwどんなに辛い障害があってもそれを乗り越えて前へと進むためか。pc
&monsprint 8,8,サッキ3
!o(1)へー、wそうなんだ。:w初めて聞いた。pc
&monsprint 8,8,ダガー1
!o(1)・・・pc
}
#@10 &if(%direc<0){
&monsprint 8,8,ダガー1
!o(1)何かイベントとかは起きないのかね?pc
&monsprint 8,8,サッキ2
!o(1)何言ってんだよ。:wこれがそのイベントだろうが。pc
&monsprint 8,8,ダガー3
!o(1)ええ!pc
}
#@11 &if(%direc<0){
&monsprint 152,8,ダガー1
!o(1)誰か仲間になるような人、w出ては来ないかなぁ~。pc
&monsprint 152,8,サッキ1
!o(1)出ては来ないだろうなぁ~。pc
&monsprint 152,8,ダガー1
!o(1)・・・。pc
}
#@12 &if(%direc<0){
&monsprint 8,8,ダガー1
!o(1)こんな疎らな森なら、w何も道に沿って歩かなくても良いんじゃないの?pc
&monsprint 8,8,サッキ2
!o(1)そう言って森を侮った者が、w得てして帰らぬ者となるのだよ。pc
&monsprint 8,8,ダガー1
!o(1)さいですかい。pc
&bgm -1
台詞=0 //台詞用のフラグ零セット
&partymove 8,8,8,8,8,8 //マップの上方向へ消える
&goto2 MAP4,115,14,2 //マップ4へ
}
#@43 &if(%direc>=0){&&} //イベント上、イベントに向かってボタンが押されたら処理中断
&if(%rnd(100)>8){&&} //乱数が8より大きければ処理中断
&if(%systime<40){&&} //前回の戦闘から40ターン経っていなければ処理中断
&bgm -1 //転ばぬ先の音楽停止
&partyout 1 //サッキュンOUT
&battle 0,7,%rnd(5)+11,1,%rnd(5)+11,1,%rnd(5)+11,1 //11~15の数値で指定
&if(%exitcode==1){&goto 死亡} //全滅して終了
&if(%gold>=回値){
%gold-=回値 //%gold=%gold-回値
回値+=10 //回値=回値+10
&bgm 1
&monsprint 80,8,サッキ3
!o(1)御待望!:wサッキュンの回復タ~イムッ!pc
&freash 65535
&freash 65535
&freash 65535
&complete
&monsprint 80,8,ダガー2
!o(1)い、w痛てて。w(なぜに!?)pc
&monsprint 80,8,サッキ3
!o(1)次回の回復には;f(回値)GOLD必要でーす。:;現GOLD=f(%gold)pc
}
%systime=0 //エンカウント初期化
&partyin 1 //サッキュンIN
&bgm 6 //フィールド音楽開始
#@33 &if(%direc==2){
&if(台詞==1){
&monsprint 8,8,ダガー1
!o(1)何でセーブの穴がこんな所に・・・pc
&monsprint 8,8,サッキ1
!o(1)うーん。:ww嫌がらせの一種だろ、きっと。pc
&monsprint 8,8,ダガー4
!o(1)なんだかな~。pc
台詞++
}
&bgm -1
&monsprint 80,8,サッキ3
!o(1)それで?pc
%selectlist={セーブ,ロード,終了}
&switch(%select){
&case(0): //セーブ
!ダガーは今の陰気で悲惨な状況を陰陰滅滅と穴に向かって訴え掛けた。:p
&save 100 //ここで指定した番号のイベントがロード後実行される
!穴はダガーの訴えに呼応するかの如く低く唸る様にその言霊を響かせた。pc
&break
&case(1): //ロード
!ダガーは穴に鈍く響く言霊を聴いた。pc
&load
&break
&case(2): //終了
!ダガーは心地好い眠気に包まれていった・・・pc
&end
&break
&default: //キャンセル
&monsprint 80,8,サッキ1
!o(1)ほーう。pc
}
&monsprint 80,8,サッキ3
!o(1)ほんじゃ、w行くか。pc
&bgm 6
}
#100 &if(進行>4){
%manpoint(4)={130,130}
&on
}
!ダガーの意識は一瞬遠のき、w次の瞬間w夢から覚めたように覚醒した。pc
&monsprint 80,8,ダガー3
!o(1)うああぁっ!!pc
&monsprint 80,8,サッキ2
!o(1)何騒いでやがんだ!:wwほら、wもう行くぞ。pc
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
[MAP4]
&map MAP\DBMAP4.MAP //マップの設定
&mapsp DBSPP.SPP //BGの設定
&mappal DBPAL.PAL //BGパレットの設定
// PAL,BANK, SP,向き(10KEY),動き(-1:静止,0:足踏み,1~:ランダム移動)
%mandef(5)={$B, 0,$A0, 8, 0} //マンイベント設定(木南)
&bgm 6 //BGM演奏
&if(台詞>0){&jmp @f} //ここ以降にある最初の&labelにジャンプする
&on //これで画面が表示される
&wait 50 //50/100秒の待ちが入る。
&monsprint 8,8,サッキ3
!o(1)よ~し、w第四の森。:w出場って行ってみようか。pc
&monsprint 8,8,ダガー1
!o(1)・・・。pc
&monsprint 8,8,サッキ2
!o(1)オッサン、w倦怠期かよ!pc
&monsprint 8,8,ダガー4
!o(1)ふーっ。pc
&monsprint 8,8,サッキ1
!o(1)・・・。pc
台詞++
&label
#5 &if(%direc>0){
&monsprint 152,8,ダガー1
!o(1)君がここのボスかね?pc
&monsprint 152,8,木々
!o(1)・・・。pc
&monsprint 152,8,ダガー1
!o(1)・・・。pc
&monsprint 152,8,サッキ1
!o(1)・・・。pc
&monsprint 152,8,木々
!o(1)・・・。pc
&monsprint 152,8,サッキ3
!o(1)プッ。pc
&monsprint 152,8,木々
!o(1)あー!w笑った笑った!!w僕の勝ちー。:w君たち自殺するんだよー。pc
&monsprint 152,8,ダガー1
!o(1)断る。pc
&monsprint 152,8,木々
!o(1)あーもーwそんなの駄目駄目!:wwさっさと死んでよ。pc
&monsprint 152,8,ダガー2
!o(1)お前が死ね!pc
&bgm -1 //転ばぬ先の音楽停止
&partyout 1 //サッキュンOUT
&battle $1000,7,木南,1 //逃げられない戦闘
&if(%exitcode==1){&goto 死亡} //全滅して終了
&partyin 1 //サッキュンIN
&bgm 6 //フィールド音楽開始
進行++
%manpoint(5)={130,130} //木南が飛んで行くMAPの外の座標
&on //これで木村が飛んで行く
&monsprint 152,8,木々
!o(1)ボッw僕の名前は、wwきっw木南(きなみ)・・・wガクッpc
&monsprint 152,8,ダガー2
!o(1)ふんっ、wまたつまらぬものを切ってしまったか。pc
&monsprint 152,8,サッキ1
!o(1)・・・pc
&freash 65535
&freash 65535
&freash 65535
&complete
&monsprint 152,8,サッキ2
!o(1)ふんっ、wまたつまらぬものを回復してしまったか。pc
&monsprint 152,8,ダガー4
!o(1)つまらないもので、wどーもすいませんねー!pc
&monsprint 152,8,サッキ3
!o(1)まー分かってんなら良いんだけどね。pc
}
#@13 &if(%direc<0){
&monsprint 8,8,ダガー1
!o(1)不思議に思うのだか・・・pc
&monsprint 8,8,サッキ1
!o(1)なに?pc
&monsprint 8,8,ダガー1
!o(1)こういう行き止まりには何か意味があるのかね。pc
&monsprint 8,8,サッキ3
!o(1)フフフ・・・wwあると思う?pc
&monsprint 8,8,ダガー1
!o(1)・・・wなさそうだね。pc
&monsprint 8,8,サッキ3
!o(1)おっ!wなかなか大人になって来たじゃないか。pc
&monsprint 8,8,ダガー1
!o(1)・・・。pc
}
#@14 &if(%direc<0){
&monsprint 8,8,ダガー1
!o(1)穴掘ったら何か出ないかなぁ。pc
&monsprint 8,8,サッキ1
!o(1)若者は夢があって羨ましいなぁ。pc
&monsprint 8,8,ダガー1
!o(1)・・・、wじゃあ君は幾つなんだい?pc
&monsprint 8,8,サッキ3
!o(1)教えな~い。pc
}
#@15 &if(%direc<0){
&monsprint 152,8,ダガー1
!o(1)それにしても、wこのマップもなんかひどかったよなー。pc
&monsprint 152,8,サッキ3
!o(1)フフフ、wダガーよ。:w次のマップはちょっと複雑だぞ。pc
&monsprint 152,8,ダガー3
!o(1)えっ!w本当?pc
&monsprint 152,8,サッキ3
!o(1)ああ本当さ、w何せ最終マップだからな。:w期待して良いぞ。pc
&monsprint 152,8,ダガー2
!o(1)・・・って、wあんたがこのマップ造っとんのかい。pc
&monsprint 152,8,サッキ2
!o(1)私は知識として知ってんの。:wwほら、wさっさと先に行けよ。pc
&bgm -1
台詞=0 //台詞用のフラグ零セット
&partymove 2,2,2,2,2,2,2,2 //マップの下方向へ消える
&goto2 MAP5,115,115,2 //マップ5へ
}
#@44 &if(%direc>=0){&&} //イベント上、イベントに向かってボタンが押されたら処理中断
&if(%rnd(100)>8){&&} //乱数が8より大きければ処理中断
&if(%systime<40){&&} //前回の戦闘から40ターン経っていなければ処理中断
&bgm -1 //転ばぬ先の音楽停止
&partyout 1 //サッキュンOUT
&battle 0,7,%rnd(5)+16,1,%rnd(5)+16,1,%rnd(5)+16,1 //16~20の数値で指定
&if(%exitcode==1){&goto 死亡} //全滅して終了
&if(%gold>=回値){
%gold-=回値 //%gold=%gold-回値
回値+=10 //回値=回値+10
&bgm 1
&monsprint 80,8,サッキ3
!o(1)御渇望!:wサッキュンの回復タ~イムッ!pc
&freash 65535
&freash 65535
&freash 65535
&complete
&monsprint 80,8,ダガー1
!o(1)おや?wいつもの刺激がないぞ。pc
&monsprint 80,8,サッキ3
!o(1)次回の回復には;f(回値)GOLD必要でーす。:;現GOLD=f(%gold)pc
}
%systime=0 //エンカウント初期化
&partyin 1 //サッキュンIN
&bgm 6 //フィールド音楽開始
#@34 &if(%direc==8){
&if(台詞==1){
&monsprint 152,8,ダガー1
!o(1)ここにセーブの穴があるのは大人の都合かね。pc
&monsprint 152,8,サッキ3
!o(1)分かってきたじゃないか。:w大人になったな。pc
&monsprint 152,8,ダガー1
!o(1)・・・、wwありがと。pc
台詞++
}
&bgm -1
&monsprint 80,8,サッキ1
!o(1)で?pc
%selectlist={セーブ,ロード,終了}
&switch(%select){
&case(0): //セーブ
!ダガーは今の重く疲労に満ち満ちた状況を悶々と穴に向かって訴え掛けた。:p
&save 100 //ここで指定した番号のイベントがロード後実行される
!穴はダガーの訴えに呼応するかの如く低く唸る様にその言霊を響かせた。pc
&break
&case(1): //ロード
!ダガーは穴に鈍く響く言霊を聴いた。pc
&load
&break
&case(2): //終了
!ダガーは心地好い眠気に包まれていった・・・pc
&end
&break
&default: //キャンセル
&monsprint 80,8,サッキ2
!o(1)せんのかいや。pc
}
&monsprint 80,8,サッキ3
!o(1)ほんじゃ、w行くか。pc
&bgm 6
}
#100 &if(進行>5){
%manpoint(5)={130,130}
&on
}
!ダガーの意識は一瞬遠のき、w次の瞬間w夢から覚めたように覚醒した。pc
&monsprint 80,8,ダガー3
!o(1)うああぁっ!!pc
&monsprint 80,8,サッキ2
!o(1)何騒いでやがんだ!:wwほら、wもう行くぞ。pc
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
[MAP5]
&map MAP\DBMAP5.MAP //マップの設定
&mapsp DBSPP.SPP //BGの設定
&mappal DBPAL.PAL //BGパレットの設定
// PAL,BANK, SP,向き(10KEY),動き(-1:静止,0:足踏み,1~:ランダム移動)
%mandef(6)={$B, 0,$A0, 8,-1} //マンイベント設定(木血外)
&bgm 6 //BGM演奏
&if(台詞>0){&jmp @f} //ここ以降にある最初の&labelにジャンプする
&on //これで画面が表示される
&wait 50 //50/100秒の待ちが入る。
&monsprint 8,8,ダガー3
!o(1)おっ!wちょっと複雑そう。pc
&monsprint 8,8,サッキ3
!o(1)なっ。pc
&monsprint 8,8,ダガー1
!o(1)でもちょっとじゃん。pc
&monsprint 8,8,サッキ1
!o(1)・・・w大人になれ、w大人に。pc
&monsprint 8,8,ダガー1
!o(1)・・・pc
台詞++
&label
#6 &if(%direc>0){
&monsprint 152,8,ダガー2
!o(1)おっwおい、wサッキュン。:wwこいつがこの森を支配している妖精なのか!?pc
&monsprint 152,8,サッキ2
!o(1)ああそうだ。:wでもダガー、w迂闊に名前を間違って口にするんじゃねえぞ!pc
&monsprint 152,8,木外
!o(1)ヴッ、wヴヴ・・wヴオクノ・・wナッwナマ・・w名前は・・・pc
&monsprint 152,8,ダガー2
!o(1)・・・pc
&monsprint 152,8,サッキ2
!o(1)・・・pc
&monsprint 152,8,木外
!o(1)キキ・・wキッwキキ・・wキチッwキチ・・・ww木w血w外!!!pc
&monsprint 152,8,ダガー3
!o(1)ええ!wキ○ガイ!!pc
&monsprint 152,8,サッキ2
!o(1)うああっ、wばっw馬鹿野郎!!:wwあれはw「もくけつそと」wと読むんだよ!pc
&monsprint 152,8,ダガー2
!o(1)だっ、wだって本人が・・・pc
&monsprint 152,8,木外
!o(1)ヴヴ・・wヴガー!!pc
&bgm -1 //転ばぬ先の音楽停止
&partyout 1 //サッキュンOUT
&battle $1000,7,木血外,1 //逃げられない戦闘
&if(%exitcode==1){&goto 死亡} //全滅して終了
&partyin 1 //サッキュンIN
&bgm 6 //フィールド音楽開始
// 進行++
%manpoint(6)={130,130} //木血外が飛んで行くMAPの外の座標
&on //これで木血外が飛んで行く
&monsprint 152,8,ダガー2
!o(1)くぅー!w何とか木血外を倒したぞ!pc
&monsprint 152,8,サッキ3
!o(1)ああ、wよくぞw「もくけつそと」wを倒した。:wよくやった、w大したもんだ。pc
&monsprint 152,8,ダガー4
!o(1)これでこの森から出られるんだな。pc
&monsprint 152,8,サッキ3
!o(1)ああ、wあの先に開けているのが森の出口さ。pc
&monsprint 152,8,ダガー4
!o(1)こっwこれで俺は自由に・・・w本当の自由を手に入れられるんだな。pc
&monsprint 152,8,サッキ1
!o(1)・・・、w自由w・w・w・:p
&monsprint 152,8,サッキ3
!ああ、wそうだ。:wダガー、wお前は本当の自由を手に入れたさ。pc
&bgm -1
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 //マップの左方向へ消える
&goto END //エンディングへ
}
#@16 &if(%direc<0){
&monsprint 152,8,ダガー1
!o(1)お勧めの方向とかはある?pc
&monsprint 152,8,サッキ1
!o(1)うーん、w左の方かなぁ・・・pc
&monsprint 152,8,ダガー3
!o(1)本当?pc
&monsprint 152,8,サッキ3
!o(1)嘘ではないな。pc
&monsprint 152,8,ダガー1
!o(1)・・・pc
}
#@17 &if(%direc<0){
&monsprint 8,8,ダガー1
!o(1)ぜひ、wショートカットしたいな。pc
&monsprint 8,8,サッキ1
!o(1)ああ、wその髪うっとうしいだろうからな。pc
&monsprint 8,8,ダガー1
!o(1)いや、w俺が言いたいのは・・・pc
}
#@18 &if(%direc<0){
&monsprint 152,8,サッキ3
!o(1)ハイ、wはずれ。pc
&monsprint 152,8,ダガー1
!o(1)・・・。pc
}
#@19 &if(%direc<0){
&monsprint 152,8,サッキ2
!o(1)先は長い!pc
&monsprint 152,8,ダガー1
!o(1)・・・。pc
}
#@20 &if(%direc<0){
&monsprint 152,8,サッキ1
!o(1)いよいよだな。pc
&monsprint 152,8,ダガー3
!o(1)本当?pc
&monsprint 152,8,サッキ3
!o(1)嘘ではないな。pc
&monsprint 152,8,ダガー1
!o(1)・・・pc
}
#@21 &if(%direc<0){
&monsprint 152,8,ダガー2
!o(1)まったく、w思わせ振りだなあ!pc
&monsprint 152,8,サッキ1
!o(1)そうだな、w何かを期待させるよな。pc
&monsprint 152,8,ダガー1
!o(1)でも、w何でもないと。pc
&monsprint 152,8,サッキ3
!o(1)フフフ、wどうかな。pc
&monsprint 152,8,ダガー1
!o(1)・・・、w只の思わせ振りだな。pc
}
#@45 &if(%direc>=0){&&} //イベント上、イベントに向かってボタンが押されたら処理中断
&if(%rnd(100)>4){&&} //乱数が4より大きければ処理中断
&if(%systime<40){&&} //前回の戦闘から40ターン経っていなければ処理中断
&bgm -1 //転ばぬ先の音楽停止
&partyout 1 //サッキュンOUT
&battle 0,7,%rnd(5)+21,1,%rnd(5)+21,1,%rnd(5)+21,1 //21~25の数値で指定
&if(%exitcode==1){&goto 死亡} //全滅して終了
&if(%gold>=回値){
%gold-=回値 //%gold=%gold-回値
回値+=10 //回値=回値+10
&bgm 1
&monsprint 80,8,サッキ3
!o(1)毎度お馴染みの~!:wサッキュンの回復タ~イムッ!pc
&freash 65535
&freash 65535
&freash 65535
&complete
&monsprint 80,8,ダガー1
!o(1)・・・w
&monsprint 80,8,ダガー4
!どうやらあの刺激には慣れてしまったようだ。pc
&monsprint 80,8,サッキ3
!o(1)次回の回復には;f(回値)GOLD必要でーす。:;現GOLD=f(%gold)pc
}
%systime=0 //エンカウント初期化
&partyin 1 //サッキュンIN
&bgm 6 //フィールド音楽開始
#@35 &if(%direc==2){
&if(台詞==1){
&monsprint 8,8,ダガー3
!o(1)如何にも最終セーブポイントって所にあるよなぁ。pc
&monsprint 8,8,サッキ3
!o(1)だろ。pc
台詞++
}
&bgm -1
&monsprint 80,8,サッキ3
!o(1)落ち着いて選べよ。pc
%selectlist={セーブ,ロード,終了}
&switch(%select){
&case(0): //セーブ
!ダガーは今の終わり行く終末の状況を淡々と穴に向かって訴え掛けた。:p
&save 100 //ここで指定した番号のイベントがロード後実行される
!穴はダガーの訴えに呼応するかの如く低く唸る様にその言霊を響かせた。pc
&break
&case(1): //ロード
!ダガーは穴に鈍く響く言霊を聴いた。pc
&load
&break
&case(2): //終了
!ダガーは心地好い眠気に包まれていった・・・pc
&end
&break
&default: //キャンセル
&monsprint 80,8,サッキ1
!o(1)そうか、wお前の自由だ。pc
}
&monsprint 80,8,サッキ3
!o(1)ほんじゃ、w行くか。pc
&bgm 6
}
#100 !ダガーの意識は一瞬遠のき、w次の瞬間w夢から覚めたように覚醒した。pc
&monsprint 80,8,ダガー3
!o(1)うああぁっ!!pc
&monsprint 80,8,サッキ2
!o(1)何騒いでやがんだ!:wwほら、wもう行くぞ。pc
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
[END]
&map MAP\DBGMOV.MAP //マップの設定
&mapsp DBSPP.SPP //BGの設定
&mappal DBPAL.PAL //BGパレットの設定
%partypoint={2,2,6}
&partyout 1 //サッキュンOUT
%partydef(0)={$A, 0,$40,-1,-1,-1,-1,-1,-1,-1} //ダガー透明化定義
%mandef(7)={$A, 0,$60, 4, 0} //マンイベント設定(ダガー)
%mandef(8)={$A, 0,$80, 4, 0} //マンイベント設定(サッキュン)
&on
&bgm 9 //エンディングミュージック
&partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 //表示キャラを動かす
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 //表示キャラを動かす
!o(1)D.B.S.;
! 「人でなしの森」編:;
! By 深読 行間
&partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 //表示キャラを動かす
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 //表示キャラを動かす
!o(1)「レイカ」SYSTEM 及び;
! 「てぺ」SYSTEM:;
! TNB制作所 様
&partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 //表示キャラを動かす
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 //表示キャラを動かす
!o(1)音楽;
! 松本 健一 様;
! Mark44. 様;
! HK2 様
&partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 //表示キャラを動かす
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 //表示キャラを動かす
&monsprint 48,48,ムハ~ン
&monsprint 112,48,白んこ君
&monsprint 176,48,ソサエティベア
!o(1)誠に無断で勝手ながら;
! 田圃 鴎 様?;
! 阿部 朋子 様;
! 石田 好伸 様
&partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 //表示キャラを動かす
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 //表示キャラを動かす
!c
!o(1)この場を与えて下さった:;
! 満開製作所と;
! 電脳倶楽部の皆様
&partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 //表示キャラを動かす
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 //表示キャラを動かす
!o(1)そしてプレーしてくれた貴方!::; Thank you!!
&partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 //表示キャラを動かす
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 //表示キャラを動かす
&partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 //表示キャラを動かす
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 //表示キャラを動かす
&partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 //表示キャラを動かす
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 //表示キャラを動かす
&monsprint 8,8,ダガー2
!o(1)あー、wそれにしても腹減ったなー。pc
&monsprint 152,8,サッキ1
!o(1)・・・pc
&monsprint 8,8,ダガー1
!o(1)サッキュンは御腹が減ったりはしないのか?pc
&monsprint 152,8,サッキ3
!o(1)いやぁ、w実は私もペコペコなんだよ。pc
&monsprint 8,8,ダガー1
!o(1)へー。:ww所で悪魔ってなに食べるんだい?pc
&monsprint 152,8,サッキ3
!o(1)う~んやだな~もー。:www
&monsprint 152,8,サッキ4
!今までなに見てたかなー。pc
&monsprint 8,8,ダガー4
!o(1)え゛!?pc
&contrast 14 //以下、画面フェイドアウト
&wait 20
&contrast 13
&wait 20
&contrast 12
&wait 20
&contrast 11
&wait 20
&contrast 10
&wait 20
&contrast 9
&wait 20
&bgm -1 //音楽フェイドアウト
&contrast 8
&wait 20
&contrast 7
&wait 20
&contrast 6
&wait 20
&contrast 5
&wait 20
&contrast 4
&wait 20
&contrast 3
&wait 20
&contrast 2
&wait 20
&contrast 1
&wait 20
&contrast 0
&wait 200
&end //ゲーム終了
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
[死亡] //ゲームオーバー
&bgm -1 //BGM演奏
&map MAP\DBGMOV.MAP //マップの設定
&mapsp DBSPP.SPP //BGの設定
&mappal DBPAL.PAL //BGパレットの設定
&initscreen //画面を一度クリア
%partypoint={6,6,6}
%partydef(0)={$A, 0,$40,-1,-1,-1,-1,-1,-1,-1} //ダガー透明化定義
%mandef(29)={$A, 0,$80, 2, 0} //マンイベント設定(サッキュン)
&on
&monsprint 111,104,ダガー5
&bgm 8 //ゲームオーバーミュージック
&partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 //サッキュンを羽ばたかせる為
&partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 //サッキュンを羽ばたかせる為
&monsprint 80,8,サッキ2
!o(1)なんだよ、wだらしねーな!:p
&monsprint 80,8,サッキ1
!今度はもっと上手くやれよ。:p
&monsprint 80,8,サッキ3
!期待してるぞ!:p
&monsprint 80,8,サッキ4
!がんばって♪pc
&load
&reset